1RESTORE
2CLR
3DATA2,10,8,7,5,13,6,14,207,34,18,39,219,43,118,46,160,100,212,147,160,194,107,147
4V=53248
5F=17
6DIMR(100),A(2,4),O(4),K(4),NH(5),NL(5)
7NL(4)=78
8NH(4)=12
9FORI=0TO3
10READX
11A(0,I)=X
12READY
13A(1,I)=Y
14O(I)=I
15K(I)=I
16POKEV+39+I,A(0,I)
17POKE2040+I,13
18NEXT
19FORI=0TO62
20POKE832+I,255
21NEXT
22J1=1
23M=0
24B=170
25Q=0
26POKEV+32,0
27POKEV+33,0
28POKEV+29,15
29POKEV+23,15
30POKEV+21,15
31FORI=0TO3
32READL
33NL(I)=L
34READH
35NH(I)=H
36NEXT
37FORI=0TO7
38READX
39POKEV+I,X
40NEXT
41PRINT"{clr}{wht}   {CBM-T}{CBM-Y}{CBM-Y}{CBM-U}{CBM-U} REMEMBER BY DRAZIL 2017 {CBM-U}{CBM-U}{CBM-Y}{CBM-Y}{CBM-T}{down}            PRESS BUTTON TO START"
42P=70
43FORI=0TO2
44S=I
45GOSUB144
46NEXT
47P=200
48S=3
49GOSUB144
50P=70
51J=NOT(INT((NOT(PEEK(56320))AND31)/24))AND1ANDJ1
52ONJGOTO51
53PRINT"{home}{down}{down}                                       "
54N$=STR$(PEEK(2))
55N$=STR$(M+1)
56N$=RIGHT$(N$,LEN(N$)-1)
57N$=RIGHT$("0"+N$,2)
58PRINT"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                   "N$
59N$=STR$(PEEK(2))
60N$=RIGHT$(N$,LEN(N$)-1)
61N$=RIGHT$("0"+N$,2)
62PRINT"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                 MAX:"N$
63X=PEEK(V+18)
64R(M)=(X-INT(X/4)*4)
65FORI=0TOM
66FORW=1TO10
67NEXTW
68OF=K(R(I))
69S=R(I)
70GOSUB144
71POKEV+39+OF,A(1,R(I))
72FORW=1TO100
73NEXTW
74POKEV+39+OF,A(0,R(I))
75NEXT
76FORW=1TO150
77NEXTW
78O0=O(0)
79FORI=0TO3
80O(I)=O(I+1)
81NEXT
82O(3)=O0
83K3=K(3)
84FORI=3TO1STEP-1
85K(I)=K(I-1)
86NEXT
87K(0)=K3
88FORC=0TO3
89POKEV+39+C,A(0,O(C))
90NEXT
91FORI=0TOM
92OF=K(R(I))
93S=NOT(PEEK(56320))AND15
94IF(S=1ANDOF=0)OR(S=8ANDOF=1)OR(S=2ANDOF=2)OR(S=4ANDOF=3)THEN96
95GOTO109
96S=R(I)
97Q=S
98POKEV+39+OF,A(1,R(I))
99GOSUB144
100POKEV+39+OF,A(0,R(I))
101NEXT
102FORW=1TO1000
103NEXT
104M=M+1
105J1=0
106ON-(M<PEEK(2))GOTO51
107POKE2,(M)
108GOTO51
109ON-(S=0)GOTO93
110N$=STR$(M+1)
111N$=RIGHT$(N$,LEN(N$)-1)
112N$=RIGHT$("0"+N$,2)
113PRINT"{home}{yel}{down}{down}       HA HA,YOU LOOSE IN ROUND "N$"{down}{wht}               UP=RESTART    DOWN=QUIT"
114P=300
115S=4
116F=33
117GOSUB144
118IFM+1>PEEK(2)THEN120
119GOTO133
120F=17
121P=60
122FORI=0TO3
123S=I
124GOSUB144
125NEXT
126FORI=2TO1STEP-1
127S=I
128GOSUB144
129NEXT
130S=0
131P=200
132GOSUB144
133X=INT((NOT(PEEK(56320))AND3))
134ON-(X=1)GOTO1
135ON-(X=0)GOTO133
136FORI=0TO60STEP3
137POKE832+I,0
138POKE832+I+2,0
139POKE832+I+1,0
140NEXT
141PRINT"{clr}BYE BYE DUDE..."
142POKEV+21,0
143END
144SI=54272
145POKE54296,15
146POKESI+5,20
147POKESI+12,20
148POKESI+6,200
149POKESI+13,255
150POKESI+0,NL(S)
151POKESI+1,NH(S)
152POKESI+2,200
153POKESI+3,0
154POKESI+4,F
155FORT=1TOP
156NEXT
157POKESI+4,0
158RETURN
